home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1999 Spring / macformat-077.iso / Shareware Plus / Development / Akua Sweets 131 / Akua Sweets Examples / Imaging / Convert Picture < prev    next >
Encoding:
Text File  |  1999-03-04  |  315 b   |  19 lines  |  [TEXT/ToyS]
  1. on open fsObjs
  2.     repeat with fsObj in fsObjs
  3.         try
  4.             set myPic to the image from fsObj
  5.         on error
  6.             beep
  7.             return
  8.         end try
  9.         
  10.         set win to display drawing titled (fsObj as string) ¬
  11.             starting with myPic ¬
  12.             located at {8, 48}
  13.         
  14.         store image myPic
  15.         
  16.         display drawing win with disposal
  17.     end repeat
  18. end open
  19.